home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / shareware / lc / lc.asc next >
Text File  |  1999-01-25  |  2KB  |  99 lines
  1. Statement p{t$}
  2.   PutStr_ t$+Chr$(10)
  3. End Statement
  4.  
  5. Statement k{k$,d}
  6.   q=Len(k$)
  7.   For x = 1 To q
  8.     Print Mid$(k$,x,1)
  9.     Delay_ d
  10.   Next
  11. End Statement
  12.  
  13.  
  14. p{"Programming: CwC/Sa2k!"}
  15. p{"Khuul Music: X-Ceed/EndZeit+Floppy"}
  16. p{"Dezignation: Shuwi/Sa2k!"}:p{""}
  17. Print "XPK-SQSH"
  18. k{"[........................]",2}
  19. p{"ok!"}:p{""}
  20.  
  21. FindScreen 0
  22.  
  23. q=OpenFile (0,"ram:mod"):WriteMem 0,?m,18768:CloseFile 0
  24. q=OpenFile (0,"ram:p"):WriteMem 0,?p,4560:CloseFile 0
  25. Execute_ "ram:p ram:mod >nil:",0,0
  26. Delay_ 10
  27. DeleteFile_ ("ram:mod")
  28. DeleteFile_ ("ram:p")
  29.  
  30. Screen 0,0,0,320,256,4,$0,"rob",1,2
  31. BitMap 0,320,256,4
  32. ScreensBitMap 0,0
  33.  
  34. _d
  35.  
  36. Cls 0
  37.  
  38. _b
  39.  
  40. x=Int(Rnd(310))
  41. y=Int(Rnd(250))
  42.  
  43. x2=Int(Rnd(310))
  44. y2=Int(Rnd(250))
  45.  
  46. bx=Int(Rnd(320)):by=Int(Rnd(256))
  47. Plot bx,by,3
  48.  
  49. RGB 1,15,0,0
  50. RGB 2,0,0,15
  51. RGB 3,0,15,0
  52.  
  53.  
  54. Repeat
  55.  
  56. da
  57.  
  58. If KeyCode=103 Then y-1:q=Point (x,y-1):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
  59. If KeyCode=101 Then y+1:q=Point (x,y+1):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
  60. If KeyCode=99 Then x+1:q=Point (x+1,y):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
  61. If KeyCode=97 Then x-1:q=Point (x-1,y):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
  62.  
  63. If JVert(1)=-1 Then y2-1:q=Point (x2,y2-1):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
  64. If JVert(1)=1 Then y2+1:q=Point (x2,y2+1):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
  65. If JHoriz(1)=1 Then x2+1:q=Point (x2+1,y2):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
  66. If JHoriz(1)=-1 Then x2-1:q=Point (x2-1,y2):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
  67.  
  68. If x>320 OR x=0 OR y=0 OR y>256 Then j+1:Cls 1:Delay_ 30:Goto _d
  69. If x2>320 OR x2=0 OR y2=0 OR y2>256 Then o+1:Cls 2:Delay_ 30:Goto _d
  70.  
  71. If x=bx AND y=by Then o+1:Cls 1:Delay_ 30:Goto _d
  72. If x2=bx AND y2=by Then j+1:Cls 2:Delay_ 30:Goto _d
  73.  
  74. If Joyb(1)=1 Then Goto _ptk
  75.  
  76. VWait
  77.  
  78. Plot x,y,1
  79. Plot x2,y2,2
  80.  
  81.  Until Joyb(0)<>0
  82.  kon
  83.  q=OpenFile (0,"ram:p"):WriteMem 0,?p,4560:CloseFile 0
  84.  Execute_ "ram:p q >nil:",0,0:DeleteFile_ ("ram:p")
  85.  End
  86.  
  87. _ptk
  88.  
  89. w=EasyRequest ("pynquty","Player1:"+Str$(o)+Chr$(10)+"Player2:"+Str$(j),"Dalej?|Poczatek!|Qniec")
  90. If w=1 Then Goto da
  91. If w=0 Then Goto kon
  92. If w=2 Then Goto _b
  93.  
  94. m:
  95. IncBin "100f:mod.x"
  96. p:
  97. IncBin "c:ptp."
  98.  
  99.